home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
wire.asc
< prev
next >
Wrap
Text File
|
1990-10-14
|
727b
|
16 lines
1 CLS
2 INPUT"What is your wire gauge ";AWG:INPUT "How many (total loop) Feet ";FEET
3 INPUT"Speaker load in ohms ";S
4 RHO=10.575:CONSTANT=105532!*.794^AWG:OHMS=RHO*FEET/CONSTANT
5 PERCENT=(OHMS/(OHMS+S))*100:PRINT
6 PRINT FEET;"Feet of";AWG;"gauge copper wire is";CINT(OHMS*10)/10;"ohms at 68 degrees F"
7 PRINT CINT(PERCENT*100)/100;"percent of your power will be lost in the wire."
8 P=1-(PERCENT/100):DBLOSS=10*LOG(P)/LOG(10)
9 PRINT" The loss is equal to ";CINT(DBLOSS*10)/10;"dB of power and SPL."
10 PRINT:GOTO 2
20 END
30 ' FROM TBS BBS SERVICE WITH PERMISSION
40 ' CALL 404/320-6202 TO SIGN ON
50 ' VOICE 404/321-1600
60 ' sysop is Brian TULLIS